From: Kenichi Handa <handa@m17n.org>
Date: Wed, 24 Dec 2003 02:08:54 +0000 (+0000)
Subject: (set-default-coding-systems): Call
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24807
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d2b2913eb65cb25b8c54154f29d20c36f628e67a;p=emacs.git

(set-default-coding-systems): Call
ucs-set-table-for-input for all buffers that don't have local
value of buffer-file-coding-system.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index a9ed8299ad9..5e957d6b8ab 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -321,6 +321,11 @@ This also sets the following values:
   o default value for the command `set-keyboard-coding-system'."
   (check-coding-system coding-system)
   (setq-default buffer-file-coding-system coding-system)
+  (if (fboundp 'ucs-set-table-for-input)
+      (dolist (buffer (buffer-list))
+	(or (local-variable-p 'buffer-file-coding-system buffer)
+	    (ucs-set-table-for-input buffer))))
+
   (if default-enable-multibyte-characters
       (setq default-file-name-coding-system coding-system))
   ;; If coding-system is nil, honor that on MS-DOS as well, so